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Introduction 



This report is meant to be used as auxiliary material for the guided grammar 
convergence technique proposed in [18] as problem-specific improvement on [12]. 
It contains a megamodel renarrated as proposed in [19], as well as full results of 
the guided grammar convergence experiment on the Factorial Language, with 
details about each grammar source packaged in a readable form. All formulae 
used within this document, are generated automatically by the convergence 
infrastructure in order to avoid any mistakes. The generator source code and the 
source of the introduction text can be found publicly available in the Software 
Language Processing Suite repository [21]. 

Consider the model on Figure 1. It is a megamodel in the sense of [1, 6], 
since it depicts a linguistic architecture: all nodes represent software languages 
and language transformations, and all edges represent relationships between 
them. MegaL [5] is used as a notation: blue boxes represent tangible artefacts 
(files, programs, modules, directories, collections of other concrete entities), 
yellow boxes denote software languages in the broad sense (from general purpose 




Figure 1: Guided grammar convergence megamodel. 
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programming languages to data types and protocols), light green boxes are used 
for functions (in fact, model transformations) and dark green boxes are for 
function applications. 

As we can see from Figure 1 if we start reading it from the bottom, there 
is a program Guided. rsc, which was written in Rascal metaprogramming lan- 
guage [11]. It implements the guided grammar convergence process, which in- 
put language is BGF (BNF-like Grammar Formalism, a straightforward internal 
representation format for grammars, introduced in [12]). Its output language is 
SBGF, a bidirectional grammar transformation language introduced in [20]. An 
application of the guided grammar convergence algorithm to two grammars: one 
master grammar defining the intended software language (terminology of [18]) 
and one servant grammar (its label displayed in italics since it is actually a vari- 
able, not a concrete entity) — yields a transformation script that implements a 
grammar transformation than indeed transforms the servant grammar into the 
master grammar. The process behind this inference is relatively complicated 
and involves triggered grammar design mutations, normalisation to Abstract 
Normal Form, constructing weak prodsig-equivalence (=0=) classes and resolving 
nominal and structural differences, as described on the theoretic level in [18]. 

The rest of the report presents instantiations of this megamodel for eleven 
concrete grammar sources: 

adt: an algebraic data type 1 in Rascal [10]; 

antlr: a parser description in the input language of ANTLR [15]. Semantic 
actions (in Java) are intertwined with EBNF-like productions. 

deg: a logic program written in the style of definite clause grammars [16]. 

emf: an Ecore model [14] , automatically generated by Eclipse [3] from the XML 
Schema of the xsd source; 

jaxb: an object model obtained by a data binding framework. Generated au- 
tomatically by JAXB [7] from the XML schema for FL. 

om: a hand-crafted object model (Java classes) for the abstract syntax of FL. 

python: a parser specification in a scripting language, using the PyParsing 
library [13]; 

rascal: a concrete syntax specification in Rascal metaprogramming language 
[10,11]; 

sdf: a concrete syntax definition in the notation of SDF [9] with scannerless 
generalized LR [4, 17] as a parsing model. 

txl: a concrete syntax definition in the notation of TXL (Turing eXtender Lan- 
guage) transformational framework [2], which, unlike SDF, uses a combi- 
nation of pattern matching and term rewriting). 

xsd: an XML schema [8] for the abstract syntax of FL. 



x http : //tutor . rascal-mpl . org/Courses/Rascal/Declarations/AlgebraicDataType/ 
AlgebraicDataType .html. 
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Grammar 1 



ANTLR 



Source name: antlr 

1.1 Source grammar 

• Source artifact: topics/fl/javal/FL.g 

• Grammar extractor: topics/extraction/antlr/antlrstrip.py 

• Grammar extractor: topics/extraction/antlr/slps/antlr2bgf/StrippcdANTLR.g 



Production rules 



p(", program, +(sel ('f ', function))) 

p(", function, seq([sel('n', ID) , +(sel('a', ID)) ,'=',sel ('e', expr) , +(NEWLINE)])) 
p(", expr, choice ([sel ('b', binary) , 

sel ('a', apply) , 

se\ ('i', ifThenElse)])) 
p(", binary, seq ([sel (T, atom) , *(seq ([sel ('o', ops) , sel (V, atom)]))])) 
p(", apply, seq ([sel ('i', ID) , +(sel ('a', atom))])) 

p(", if 'ThenElse , seq (['if sel ('c', expr) , 'then', sel ('el', expr) , 'else', sel ('e2', expr)])) 
p(", atom, choice([/D, 
INT, 

seq (['(', sel ('e', expr) ,')'])])) 
p(", ops, choice(['==', 
'+', 

'-'])) 



1.2 Mutations 

• unite-splitN expr 

p (", atom, choice ([ID, INT, seq (['(', sel ('e', expr) , ')'])])) 

• designate-unlabel 

p ( I'tmplabel'l , binary, seq ([sel (T, expr) , *(seq ([sel ('o', ops) , sel ('r', expr)]))])) 

• anonymize-deanonymize 

p ^'tmplabel', binary , seq ( |sel (T, expr) | , * ^seq ^ sel ('o', ops) | , |sel ('r', expr) jlljj 

• assoc-iterate 

p ('tmplabel', binary, seq ([expr, ops, expr])) 

• deanonymize-anonymize 

p ^'tmplabel', binary, seq ( |sel ('!', expr) | , [sel ('o', ops)| , sel ('r', expr) | j\ 

• unlabel-designate 

p ( |'tmplabel'| , binary, seq ([sel (T, expr) , sel ('o', ops) , sel ('r', expr)])) 
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1.3 Normalizations 

• reroot-reroot [] to [program] 

• anonymize-deanonymize 

p ("Junction, seq ( |scl Qn', ID)\ , +( \sel ('a', IDjf ) , '=', sel ('e', expr)\ , +(NEWLINE)^ )) 

• anonymize-deanonymize 

p program, +( ]scl (T Junction)^ )") 

• anonymize-deanonymize 

P ("> ifThenElse, seq ^ pif', |sel ('c', expr)] , 'then', |sel ('el', expr)| , 'else', [sel ('e2', expr)\ ^ 

• anonymize-deanonymize 

p binary, seq ^ j jscl ('!', expr)| , scl ('o', ops) | , |scl ('r', expr)] j ']'] 

• anonymize-deanonymize 

P ("> expr, choice ^ INT, seq ^ p(', [scl ('c', expr)] , ')'])])) 

• anonymize-deanonymize 

P (", apply, seq ( j jsel ('i', JP)] , +f |scl('a', expr)| ) J ) ) 

• anonymize-deanonymize 

p (", expr, choice ( j jscl ('b', binary)] , |scl ('a', ajjpZyj] , |scl ('i', ifThenElse)\ ^ 

• abstractize-concretize 

p (", ojw, choice ( EB H] )) 

• abstractize-concretize 

p (", expr, choice ( [jD, JJVT, seq ( expr, [?]])])) 

• abstractize-concretize 

p ("Junction, seq ( [ID, +(!£>) , EE], expr, +(iVDWXI7VE)])) 

• abstractize-concretize 

p (", ifThenElse, seq ( [ \W\ , expr, pthen'L expr, ['else' | , expr])) 

• vertical-horizontal in expr 

• undeflne-define 

p (", ops,e) 

• unchain-chain 

p (", expr, binary) 

• unchain-chain 

p (", expr, apply) 

• unchain-chain 

p (", expr, ifThenElse) 

• abridge-detour 

p (", expr, expr) 

• unlabel-designate 

p ( | 'binary'] , expr, seq ([expr, ops, expr])) 

• unlabel-designate 

p ( |'apply'| , expr, seq ([ID, +(expr)])) 

• unlabel-designate 

p ( I'ifThciiElsc'l , expr, seq ([expr, expr, expr])) 

• extract-inline in expr 

p (", expri , seq ([expr, ops, expr])) 

• extract-inline in expr 

P (", exprg , seq ( [ID , +( expr)})) 

• extract-inline in expr 

p (", exprg, seq ([expr, expr, expr])) 
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1.4 Grammar in ANF 



Production rule 


Production signature 


p (", program, ^(function)) 

p {"Junction, seq ([ID, +(ID) , expr, +( NE WLINE )])) 

p (", expr, ID) 

p (", expr, INT) 

p (", expr, expri ) 

p (", expr, expr%) 

p (", expr, exprs) 

p (", expri , seq ([expr, ops, expr])) 

P (", expr 2 , seq ([ID, +(expr)])) 

p (", expr<; , seq ([expr, expr, expr])) 


{{function, +)} 
{{expr, l),(NEWLINE, +),(ID, 1+)} 
{(ID,1)} 
{(INT,1)} 
{(expr! , 1)} 
{(expr;; , 1)} 
{(expr 3 , 1)} 
{(ops, 1), (expr, 11)} 
{(expr,+),(/£>,l)} 
{(expr, 111}} 



1.5 Nominal resolution 



Production rules arc matched as follows (ANF on the left, master grammar on the right): 



p (", program, +(function)) 




P( 


", program, +(function)) 


p ("Junction, seq ([ID, +(ID) , expr, +(NE WLINE)]) ) 




P( 


"Junction, seq ([str, +(str) , expression])) 


p (", expr, ID) 




P( 


", expression, str) 


p (", expr, INT) 




P( 


", expression, int) 


p (", expr, expri ) 




P( 


", expression, binary) 


p (", expr, expr2) 




P( 


", expression, apply) 


p (", expr, exprg) 




P( 


", expression, conditional) 


p (", expri i seq ([expr, ops, expr])) 




P( 


", binary, seq ([expression, operator, expression])) 


p (", expr 2, seq ([ID, +(expr)])) 




P( 


", apply, seq ([str, +(expression)])) 


p (", exprg , seq ([expr, expr, expr])) 




P( 


", conditional , seq ([expression, expression, expression])) 



This yields the following nominal mapping: 

ant/r o master = {{program, program) , 
(expr^, conditional), 
(expri i binary), 
(function Junction) , 
(ID, str), 

(expr, expression) , 
(INT, int), 
(ops, operator), 
{ NE WLINE ,lu), 
(expr2, apply)} 

Which is exercised with these grammar transformation steps: 

• renameN-renameN exprg to conditional 

• renameN-renameN expri to binary 

• renameN-renameN ID to str 

• renameN-renameN expr to expression 

• renameN-renameN INT to int 

• renameN-renameN ops to operator 

• renameN-renameN exprg to app/y 
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1.6 Structural resolution 

• project-inject 

p (", function, seq ([str, +(str) , expression, +( | N E WLINE | ) ] ) ) 
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Grammar 2 



Definite Clause Grammar 



Source name: dcg 

2.1 Source grammar 

• Source artifact: topics/fi/prologl/Parser.pro 

• Grammar extractor: sharcd/prolog/cli/dcg2bgf.pro 

Production rules 

p(", program, +(function)) 

p(" , function, seq ([name, +(name) , '=', expr, +(newline)])) 
p('binary', expr, seq ([atom, *(seq ([ops, atom]))])) 
p('apply', expr, seq ([name, +(atom)])) 

p('ifThenElse', expr, seq (['if', expr, 'then', expr, 'else', expr])) 

pCliteral', atom, int) 

p('argument', atom, name) 

p(", atom, seq (['(', expr, ')'])) 

p('equal', ops, '==') 

p('plus', ops, '+') 

p('minus', ops, '-') 



2.2 Mutations 

• unite-splitN expr 
p ('literal', atom, int) 

p ('argument', atom, name) 
p (", atom, seq (['(', expr, ')'])) 

• assoc-iterate 

p ('binary', expr, seq ([expr, ops, expr])) 

2.3 Normalizations 

• reroot-reroot [] to [program] 

• unlabel-designate 

p ( | 'binary 7 ] , expr, seq ([expr, ops, expr])') 

• unlabel-designate 

p ( | 'apply'] , expr, seq ([name, +(expr)])) 

• unlabel-designate 

p ( I'ifThcnElse'L expr, seq (['if, expr, 'then', expr, 'else', expr])') 

• unlabel-designate 

p ( | 'literal'! , expr, int) 
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unlabel-designate 

p ( | 'argument' | , expr, name) 

unlabel-designate 

p ( | 'equal'] , ops, '==') 

unlabel-designate 

p ( | 'plus' | , ops, '+') 

unlabel-designate 

p ( I 'minus'] , ops, '-') 

abstractize-concretize 

p I ", expr, seq ( 



f\, expr,\y}])) 



abstractize-concretize 

p (", function, seq ([name, +(name) , |'='| , expr, +(newline)] )) 
abstractize-concretize 

p (", ops, ! '==' !) 

abstractize-concretize 

p (", expr, seq ( [ I'if'l , expr, | 'then' | , expr. l'else 7 ] , expr] )) 
abstractize-concretize 

p (", ops,EI]) 

abstractize-concretize 

P (", ops,[+]) 

undeflne-define 

p(", ops,e) 

abridge-detour 

p (", expr, expr) 

extract-inline in expr 

p (", expri , seq {[expr, ops, expr])) 

extract-inline in expr 

p (", expr2, seq ([name, +(expr)])) 

extract-inline in expr 

p (", exprg, seq ([expr, expr, expr])) 



2.4 Grammar in ANF 



Production rule 


Production signature 


p (", program, +(function)) 

p (", function, seq ([name, +(name) , expr, +(newline)])) 

p (", expr, exprj ) 

p (", expr, exprs.) 

p (", expr, exprs) 

p (", expr, int) 

p (", expr, name) 

p (", expri , seq ([expr, ops, expr])) 

p(", exprn, seq ([name, +( expr)])) 

p (", expr-; , seq ([expr, expr, expr])) 


{{function, +)} 
{{expr, 1), (newline, +), (name, 1+)} 
{(exprj,l)} 
{(expr 2 , 1)} 
{(expr 3 , 1)} 

{(mi,l)} 
{(name, 1)} 
{(ops, 1), (expr, 11)} 
{(expr, +), (name, 1)} 
{(expr, 111)} 
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2.5 Nominal resolution 



Production rules arc matched as follows (ANF on the left, master grammar on the right): 

p (", program , +(function)) — p (", program, +(function)) 

p (", function, seq ([name, +(name) , expr, +(newline)])) o p (", function, seq ([str, +(str) , expression])) 

p (", expr, expri ) — p (", expression, binary) 

p (", expr, eocprg) — p (", expression, apply) 

p (", expr, expr$) — p (", expression, conditional) 

p (", expr, int) — p (", expression, int) 

p (", expr, name) — p (" , expression, str) 

p (", expri , seq ([expr, ops, expr])) — p (", binary, seq ([expression, operator, expression])) 

p (", expr 2, seq ([name, +(expr)])) — p (", apply, seq ([sir, +( expression)])) 

p (", exprs, seq ([expr, expr, expr])) — p (", conditional, seq ([expression, expression, expression])) 

This yields the following nominal mapping: 

deg o master = { {program , program) , 
(exprs, conditional), 
(expri i binary), 
(function, function) , 
(expr, expression) , 
(name, str), 
( ops , operator) , 
(int, int), 
(newline, ui), 
(expr 2, apply)} 

Which is exercised with these grammar transformation steps: 

• renameN-renameN expr,'; to conditional 

• renameN-renameN expri to binary 

• renameN-renameN expr to expression 

• renameN-renameN name to str 

• renameN-renameN ops to operator 

• renameN-renameN int to int 

• renameN-renameN exprg to apply 



2.6 Structural resolution 

• project-inject 

p function, seq ([str, +(str) , expression, +( |net«/ine| )] )) 
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Grammar 3 

Eclipse Modeling 
Framework 



Source name: emf 



3.1 Source grammar 



Source artifact: topics/n/cmf2/model/fl.ecore 
Grammar extractor: topics/extraction/ecore/ecorc2bgf.xslt 

Production rules 



p(", Apply , seq ([sel ('name', str) , +(sel ('arg', Expr))])) 
p(", Argument, sel ('name', str)) 

p(", Binary, seq ([sel ('ops', Ops) , sel ('left', Expr) , sel ('right', Expr)])) 
p(", Expr, choice([Apply , 

Argument, 

Binary , 

IfThenElse, 

Literal])) 

p(", Function, seq ([sel ('name', str) , +(sel ('arg', str)) , sel ('rhs', Expr)])) 

p(", IfThenElse, seq ([sel ('ifExpr', Expr) , sel ('thenExpr', Expr) , sel ('elseExpr', Expr)])) 

p(", Literal, sel ('info', int)) 

p(", Ops, choice([sel ('Equal', e) , 

sel ('Plus', e) , 

sel ('Minus', e)])) 
p(", ProgramType, +(sel ('function', Function))) 



3.2 Normalizations 

• reroot-reroot [] to [ProgramType] 

• unlabel-designate 

p ( l'namc'1 , Argument, str) 

• unlabel-designate 

p ( | 'info' | , Literal, int) 

• anonymize-deanonymize 

p f", Function, seq ( |sel ('name', str)\ , +^ |sel ('arg', gtr)] ^ , |sel ('rhs', Expr)\ J J 

• anonymize-deanonymize 

p f", Apply, seq f |scl ('name', sfr)] , +^ |scl ('arg', Brpr)] 

• anonymize-deanonymize 



p ( ", IfThenElse, seq ( 



scl 



('ifExpr', Expr)\ , |sel ('thenExpr', Expr) |, |scl ('elseExpr', Expr) jj 
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anonymize-deanonymize 

p Ops, choice ^ y scl ('Equal', g)| , |scl ('Plus', e)| , |sel ('Minus', e) ^ 
anonymize-deanonymize 

p (", ProgramType, +( jscl ('function', Function)^ )*) 
anonymize-deanonymize 

p ('", Binary, scq ^ j jsel ('ops', Ops)\ , |scl ('left', Expr)\ , scl ('right', Erpr) ^ 
vertical-horizontal in Expr 

undeflne-define 

p (", Ops, e) 

unchain-chain 

p(", Expr, Apply) 

unchain-chain 

p (", Expr, Argument) 

unchain-chain 

p (", Expr, Binary) 

unchain-chain 

p(",Expr,IfThenElse) 

unchain-chain 

p (", Expr, Literal) 

unlabel-designate 

p ( | 'Apply'] , Expr, seq ([str, +(Expr)\)) 

unlabel-designate 

p ( | 'Argument' | , Expr, str) 

unlabel-designate 

p ( | 'Binary 7 ] , Expr, seq ({Ops, Expr, Expr])) 
unlabel-designate 

p ( I'IfThcnElsc'l . Expr, seq([Expr, Expr, Expr])) 

unlabel-designate 

p ( I'Litcral 7 ! , Expr, int) 

extract-inline in Expr 

p (", Expri , seq ({str, +(Expr)])) 

extract-inline in Expr 

p (", Expr2, seq ([Ops, Expr, Expr])) 

extract-inline in Expr 

p (", Exprs, seq ([Expr, Expr, Expr])) 



Grammar in ANF 





Production rule 


Production signature 


p( 


", Expr, Expri ) 


{{Expn, 1)} 


p( 


", Expr, str) 


{(str, 1)} 


p( 


", Expr, Expr 2 ) 


{(Expr 2 ,l)} 


p( 


", Expr, Exprs) 


{(Exprs,!)} 


p( 


", Expr, int) 


{(int, 1)} 


p( 


", Function, seq ([str, +(str) , Expr])) 


{(str, l+),(Expr, 1)} 


p( 


", ProgramType, +(Function)) 


{(Function, +)} 


p( 


", Expri , seq ([str, +(Expr)])) 


{(str, I), (Expr, +)} 


p( 


", Expr2, scq ([Ops, Expr, Expr])) 


{(Ops, 1), (Expr, 11)} 


p( 


", Exprs, seq ([Expr, Expr, Expr])) 


{(Expr, 111)} 



13 



3.4 Nominal resolution 



Production rules arc matched as follows (ANF on the left, master grammar on the right): 



p (", Expr, Expri ) 




P( 


expression, apply) 


p (", Expr, str) 




P( 


', expression, str) 


p (", Expr, Exprs) 




P( 


', expression, binary) 


p (", Expr, Exprs) 




P ( 


', expression, conditional) 


p (", Expr, int) 




P( 


', expression, int) 


p (", Function, seq ([str, +(str) , Expr])) 




P( 


', function, seq ([str, +(str) , expression])) 


p (", ProgramType, +(Function)) 




P ( 


', program, +(function)) 


p (", Expri , seq ([str, +(Expr)])) 




P( 


', apply, seq ([str, ^(expression)])) 


p (", Expr2, seq ([Ops, Expr, Expr])) 




P( 


', binary, seq ([expression, operator, expression])) 


p (", Expr a, seq ([Expr, Expr, Expr])) 




P( 


', conditional, seq ([expression, expression, expression])) 



This yields the following nominal mapping: 

emf o master = {(Expr^, binary), 

(ProgramType, program), 
(Exprs, conditional), 
(str, str), 
(int, int), 

(Function , Junction) , 
(Expr, expression) , 
(Expri , apply), 
(Ops, operator)} 

Which is exercised with these grammar transformation steps: 

• renameN-renameN Exprz to binary 

• renameN-renameN ProgramType to program 

• renameN-renameN Exprs to conditional 

• renameN-renameN Function to function 

• renameN-renameN Expr to expression 

• renameN-renameN Expri to apply 

• renameN-renameN Ops to operator 

3.5 Structural resolution 

• permute-permute 

p (", binary, seq ([operator , expression, expression])) 
p (", binary, seq ([expression, operator, expression])) 
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Grammar 4 



JAXB Data Binding 
Framework 



Source name: jaxb 

4.1 Source grammar 

• Source artifact: topics/n/java3/fl/Apply.java 

• Source artifact: topics/fl/java3/fi/ Argument .java 

• Source artifact: topics/fi/java3/fi/Binary.java 

• Source artifact: topics/fi/java3/fi/Expr.java 

• Source artifact: topics/fi/java3/fi/Function.java 

• Source artifact: topics/fl/java3/fl/IfThenElse.java 

• Source artifact: topics/fi/java3/fi/Litcral.java 

• Source artifact: topics/fi/java3/fi/ObjcctFactory.java 

• Source artifact: topics/fi/java3/fi/Ops.java 

• Source artifact: topics/fi/java3/fi/Program.java 

• Source artifact: topics/fi/java3/fi/package-info.java 

• Grammar extractor: topics/extraction/java2bgf/slps/java2bgf/Tool.java 

Production rules 

p(", Apply, seq ([sel ('Name', str) , sel ('Arg', "(Expr))])) 
p(", Argument, sel ('Name', str)) 

p(", Binary, seq ([sel ('Ops', Ops) , sel ('Left', Expr) , sel ('Right', Expr)])) 
p(", Expr, choice([Apply , 

Argument, 

Binary, 

IfThenElse, 

Literal])) 

p(", Function, seq ([sel ('Name', str) , sel ('Arg', *(str)) , sel ('Rhs', Expr)])) 

p(", IfThenElse, seq ([sel ('IfExpr', Expr) , sel ('ThenExpr', Expr) , sel ('ElseExpr', Expr)])) 

p(", Literal, sel ('Info', ini)) 

p(", ObjectFactory , e) 

p(", Ops, choice([sel ('EQUAL', e) , 

sel ('PLUS', e) , 

sel ('MINUS', e)])) 
p(", package — info, tp) 

p(", Program, sel ('Function', * (Function))) 
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4.2 Normalizations 

• reroot-reroot [] to [Program] 

• unlabel-designate 

p ( I'Name'l Argument, str) 

• unlabel-designate 

p ( I 'Info' I , Literal, int) 

• unlabel-designate 

p ( | 'Function'! , Program, "(Function)) 

• anonymize-deanonymize 

p IfThenElse, seq ( [ [sel ('IfExpr', Expr) | , |sel ('ThenExpr', Expr) |, |sel ('ElscExpr', Expr) | ] ) ) 

• anonymize-deanonymize 

p Function, scq ^ j jscl ('Name', str)] , |sel ('Arg', *(strj)] , |sel ('Rhs', Expr) | j ') ') 

• anonymize-deanonymize 

p Binary, seq ^ j jsel ('Ops', Ops)\ , sel ('Left', l?zpr) |, sel ('Right', Exprj\ 

• anonymize-deanonymize 

p Apply, seq ^ j jsel ('Name', str)| , sel ('Arg', *(Erpr)7| ^ 

• anonymize-deanonymize 

p (", Ops, choice ( | sel ( ' EQUAL ', e)| , sel ('PLUS', e)| , [icT( ' MINUS ' , e) |] ) ) 

• vertical-horizontal in Expr 

• undeflne-deflne 

p (", Ops,e) 

• eliminate-introduce 

p (", ObjectFactory, e) 

• eliminate-introduce 

p (", package — info, tp) 

• unchain-chain 

p(", Expr, Apply) 

• unchain-chain 

p (", Expr, Argument) 

• unchain-chain 

p (", Expr, Binary) 

• unchain-chain 

p (", Expr, IfThenElse) 

• unchain-chain 

p (", Expr, Literal) 

• unlabel-designate 

p ( | 'Apply'] , Expr, seq ([str, *(Expr)])) 

• unlabel-designate 

p ( | 'Argument' | , Expr, str) 

• unlabel-designate 

p ( | 'Binary 7 ] , Expr, seq ([Ops, Expr, Expr])) 

• unlabel-designate 

p ( I 'IfThenElse' I . Expr, seq ([Expr, Expr, Expr])) 

• unlabel-designate 

p ( J 'Literal 7 ] , Expr, int) 

• extract-inline in Expr 
p (", Expri , seq ([str, *(Expr)])) 

• extract-inline in Expr 
p (", Expr2, seq ([Ops, Expr, Expr])) 

• extract-inline in Expr 
p (", Exprg, scq ([Expr, Expr, Expr])) 
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4.3 



Grammar in ANF 



Production 




duction signature 



P 
P 
P 
P 
P 
P 
P 
P 
P 
P 



, Expr, Expri ) 
, Expr, str) 
, Expr, Expr 2) 
, Expr, Expr a) 
, Expr, int) 

, Function, seq ([str, *(str) , Expr])) 

, Program, "(Function)) 

, Expri , seq ([str, *(Expr)])) 

, Expr 2, scq ([Ops, Expr, Expr])) 

, Exprg , seq ( [Expr , Expr , Expr] ) ) 



{(Expr, 1), (str, 1*)} 

{(Function, *)} 
{(str, 1), (Expr, *)} 
{(Ops, 1), (Expr, 11)} 
{(Expr, 111)} 



{(Expn,l)} 

{(str,l)} 
{(Expr s ,l)} 
{(Expr s , 1)} 
{(int,l)} 



4.4 



Nominal resolution 



Production rules arc matched as follows (ANF on the left, master grammar on the right): 



p (", Expr, Expri ) 




P( 


", expression, apply) 


p (", Expr, str) 




P( 


", expression, str) 


p (", Expr, Exprz) 




P( 


", expression, binary) 


p (", Expr, Exprs) 




P( 


", expression, conditional) 


p (", Expr, int) 




P( 


", expression, int) 


p (", Function, seq ([str, *(str) , Expr])) 




P( 


", function, seq ([str, +(str) , expression])) 


p (", Program, "(Function)) 




P( 


", program, ^(function)) 


p (", Expri , seq ([str, *(Expr)])) 




P( 


", apply, seq ([str, +(expression)])) 


p (", Exprg , seq ([Ops, Expr, Expr])) 




P( 


', binary, seq ([expression, operator, expression])) 


p (", Exprg , seq ([Expr, Expr, Expr])) 




P( 


", conditional, seq ([expression, expression, expression])) 



This yields the following nominal mapping: 

jaxb o master = {(Expr2, binary), 



Which is exercised with these grammar transformation steps: 

• renameN-renameN Expr£ to binary 

• renameN-renameN Exprg to conditional 

• renameN-renameN Function to function 

• renameN-renameN Program to program 

• renameN-renameN Expr to expression 

• renameN-renameN Expri to apply 

• renameN-renameN Ops to operator 



(Exprg, conditional), 
(int, int), 

(Function, function) , 
(str, str), 

(Program, program), 
(Expr, expression) , 
(Expri , apply), 
(Ops, operator)} 



4.5 Structural resolution 



• narrow-widen in function 
*(str) 
+(str) 
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• narrow-widen in program 
* (function) 
^(Junction) 

• narrow-widen in apply 
*(expression) 
+(expression) 

• permute-permute 

p (", binary, seq ([operator, expression, expression])) 
p (", binary, seq ([expression, operator, expression])) 
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Grammar 5 

Java Object Model 



Source name: om 

5.1 Source grammar 

• Source artifact: topics/fl/javal/typcs/Apply.java 

• Source artifact: topics/fi/javal/types/Argument.java 

• Source artifact: topics/fi/javal/typcs/Binary.java 

• Source artifact: topics/fi/javal/types/Expr.java 

• Source artifact: topics/fi/javal/typcs/Function.java 

• Source artifact: topics/fi/javal/types/IfThenElsc.java 

• Source artifact: topics/fi/javal/typcs/Litcral.java 

• Source artifact: topics/fi/javal/types/Ops.java 

• Source artifact: topics/fi/javal/typcs/Program.java 

• Source artifact: topics/fi/javal/typcs/Visitor.java 

• Grammar extractor: topics/cxtraction/java2bgf/slps/java2bgf/Tool.java 

Production rules 

p(", Apply, seq ([sel ('name', str) , sel ('args', *(Expr))])) 
p(", Argument, sel ('name', str)) 

p(", Binary, seq ([sel ('ops', Ops) , sel ('left', Expr) , sel ('right', Expr)])) 
p(", Expr, cho\ce([Apply , 

Argument , 

Binary, 

IfThenElse, 

Literal])) 

p(", Function, seq ([sel ('name', str) , sel ('args', *(str)) , sel ('rhs', Expr)])) 

p(", IfThenElse, seq ([sel ('ifExpr', Expr) , sel ('thenExpr', Expr) , sel ('elseExpr', Expr)])) 

p(", Literal, sel ('info', int)) 

p(", Ops, choice([sel ('Equal', e) , 

sel ('Plus', e) , 

sel ('Minus', e)])) 
p(", Program, sel ('functions', * (Function))) 
p(", Visitor, ip) 



5.2 Normalizations 

• reroot-reroot [] to [Program] 

• unlabel-designate 

p ( I'namc'l , Argument, str) 



19 



unlabel-designate 

p ( I 'info' | , Literal, int) 

unlabel-designate 

p ( | 'functions' | , Program, *(Function)) 

anonymize-deanonymize 

p (", IfThenElse, scq ( j jsel ('ifExpr', Expr)\ , |scT('thcnExpr', Brpr) |, |scl ('clscExpr', Expr)\ X\ 
anonymize-deanonymize 

p Ops, choice ^ j^ | scl ('Equal', g)| , |scl ('Plus', g)| , |scl ('Minus', e)| ^ 
anonymize-deanonymize 

p Apply, seq ^ j jscl ('name', str) \, |scl('args', *(Expr)) | j ") ") 
anonymize-deanonymize 

p Function, scq ^ j jscl ('name', str)| , scl ('args', *(str))"| , |scl ('rhs', Brpr)"| j \) 
anonymize-deanonymize 

p Binary, scq ^ j |sel ('ops', Ops)\ , |sel ('left', i?xpr)| , sel ('right', Exprjj 
vertical-horizontal in Expr 

eliminate-introduce 

p (", Visitor, (p) 

undefine-define 

p(", Ops,e) 

unchain-chain 

p(", Expr, Apply) 

unchain-chain 

p (", Expr, Argument) 

unchain-chain 

p (", Expr, Binary) 

unchain-chain 

p (", Expr, IfThenElse) 

unchain-chain 

p (", Expr, Literal) 

unlabel-designate 

p ( | 'Apply'] , Expr, seq ([str, *(Expr)])) 

unlabel-designate 

p ( | 'Argument' | , Expr, str) 

unlabel-designate 

p ( | 'Binary 7 ] , Expr, seq ([Ops, Expr, Expr])) 
unlabel-designate 

p ( I 'IfThenElse' | , Expr, seq([Expr, Expr, Expr])) 

unlabel-designate 

p ( I'LitcraFI , Expr, int) 

extract-inline in Expr 
p (", Expri , seq ([str, *(Expr)])) 

extract-inline in Expr 
p (", Expr 2, seq ([Ops, Expr, Expr])) 

extract-inline in Expr 
p (", Expr$, seq ([Expr, Expr, Expr])) 
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5.3 



Grammar in ANF 



Production 




duction signature 



P 
P 
P 
P 
P 
P 
P 
P 
P 
P 



, Expr, Expri ) 
, Expr, str) 
, Expr, Expr 2) 
, Expr, Expr a) 
, Expr, int) 

, Function, seq ([str, *(str) , Expr])) 

, Program, "(Function)) 

, Expri , seq ([str, *(Expr)])) 

, Expr 2, scq ([Ops, Expr, Expr])) 

, Exprg , seq ( [Expr , Expr , Expr] ) ) 



{(Expr, 1), (str, 1*)} 

{(Function, *)} 
{(str, 1), (Expr, *)} 
{(Ops, 1), (Expr, 11)} 
{(Expr, 111)} 



{(Expn,l)} 

{(str,l)} 
{(Expr s ,l)} 
{(Expr s , 1)} 
{(int,l)} 



5.4 



Nominal resolution 



Production rules arc matched as follows (ANF on the left, master grammar on the right): 



p (", Expr, Expri ) 




P( 


", expression, apply) 


p (", Expr, str) 




P( 


", expression, str) 


p (", Expr, Exprz) 




P( 


", expression, binary) 


p (", Expr, Exprs) 




P( 


", expression, conditional) 


p (", Expr, int) 




P( 


", expression, int) 


p (", Function, seq ([str, *(str) , Expr])) 




P( 


", function, seq ([str, +(str) , expression])) 


p (", Program, "(Function)) 




P( 


", program, ^(function)) 


p (", Expri , seq ([str, *(Expr)])) 




P( 


", apply, seq ([str, +(expression)])) 


p (", Exprg , seq ([Ops, Expr, Expr])) 




P( 


', binary, seq ([expression, operator, expression])) 


p (", Exprg , seq ([Expr, Expr, Expr])) 




P( 


", conditional, seq ([expression, expression, expression])) 



This yields the following nominal mapping: 

om o master = {(Expr^, binary), 



Which is exercised with these grammar transformation steps: 

• renameN-renameN Expr£ to binary 

• renameN-renameN Exprg to conditional 

• renameN-renameN Function to function 

• renameN-renameN Program to program 

• renameN-renameN Expr to expression 

• renameN-renameN Expri to apply 

• renameN-renameN Ops to operator 



(Exprg, conditional), 
(int, int), 

(Function, function) , 
(str, str), 

(Program, program), 
(Expr, expression) , 
(Expri , apply), 
(Ops, operator)} 



5.5 Structural resolution 



• narrow-widen in function 
*(str) 
+(str) 
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• narrow-widen in program 
* (function) 
^(Junction) 

• narrow-widen in apply 
*(expression) 
+(expression) 

• permute-permute 

p (", binary, seq ([operator, expression, expression])) 
p (", binary, seq ([expression, operator, expression])) 
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Grammar 6 

PyParsing in Python 



Source name: python 

6.1 Source grammar 

• Source artifact: topics/fl/python/parser.py 

• Grammar extractor: shared/rascal/src/extract/Python2BGF.rsc 

Production rules 

p(", -Literal, Literal) 
p(",_/F,'if) 
p(",_TF£W,'then') 
X>('\.ELSE, 'else') 
p(", name, str) 
p(", literal, seq ([?('-') , int])) 
p(", atom, choice( [name, 
literal, 

seq (['(', expr, ')'])])) 
p(", ifThenElse, seq ([JF, expr, _THEN , expr, _ELSE, expr])) 
p(", operators , choice(['==', 

'+', 

'-'])) 

p(", binary, seq ([atom, *(scq ([operators, atom]))])) 
p(", apply, seq ([name, +(atom)])) 
p(", expr, choice([6man/, 
apply, 

ifThenElse])) 
p(" , function, seq ([name, +(name) , '=', expr])) 
p(" , program, seq ([+(/«nciion) , StringEnd])) 



6.2 Mutations 

• unite-splitN expr 

p (", atom, choice ([name, literal, seq (['(', expr, ')'])])) 

• designate-unlabel 

p ( I'tmplabel'l , binary, seq ([expr, * (seq ([operators, expr]))])) 

• assoc-iterate 

p ('tmplabel', binary, seq ([expr, operators , expr])) 

• unlabel-designate 

p ( |'tmplabel'| , binary, seq([expr, operators , expr])) 
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6.3 Normalizations 



• reroot-reroot [] to [program] 

• abstractize-concretize 

p(",ZiteraZ,seq([?(E3) ,««*])) 

• abstractize-concretize 

p (", operators, choice ( [ |'=='| , |'+'|, ) ) 

• abstractize-concretize 

p(",-iF,m§ 

• abstractize-concretize 

p expr, choice Qname, literal, seq f [pC]i eayr, j^yjj ^ 

• abstractize-concretize 

pC'.-ELSE. pclsc 7 ] ) 

• abstractize-concretize 

p(",_rgEAT, |'then'| ) 

• abstractize-concretize 

p (", function, seq ([name, +(naroe) , |'='| , expr] )) 

• vertical-horizontal in expr 

• undeflne-define 

P (",-»» 

• undeflne-define 

p(",_TFE7V,e) 

• undeflne-define 

p(",_ELSE,e) 

• undeflne-define 

p (", operators, e) 

• unchain-chain 

p (", expr, literal) 

• abridge-detour 

p (", expr, expr) 

• unchain-chain 

p (", expr, binary) 

• unchain-chain 

p (", expr, apply) 

• unchain-chain 

p (", expr, iJThenElse) 

• inline-extract 

p (", name, str) 

• unlabel-designate 

p ( | 'literal'] , expr, int) 

• unlabel-designate 

p ( I'ifThcriKlsc'l , expr, seq {[-IF, expr, -THEN, expr, -ELSE, expr])) 

• unlabel-designate 

p ( | 'binary 7 ] , expr, seq {[expr, operators, expr])) 

• unlabel-designate 

p ( I 'apply' | , expr, seq ([sir, +{expr)])) 

• extract-inline in expr 

p (", expri , seq {[-IF, expr, -THEN, expr, .ELSE, expr])) 

• extract-inline in expr 

p (", expr2, seq ([expr, operators, expr])) 

• extract-inline in expr 

p (", exprg, seq ([sir, +(ezpr)])) 
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6.4 Grammar in ANF 



Production rule 


Production signature 


p (", _Literal, Literal) 
p (", expr, int) 
p (", expr, str) 
p (", expr, expr i ) 
p (", expr, expr2) 
p (", expr, exprg) 

p (", function, seq ([str, +(sfr) , expr])) 

p (", program, seq ([-^(function) , StringEnd])) 

p (", expr! , seq ([-IF, expr, _THEN , expr, _ELSE, expr])) 

p (", exprg, seq ([expr, operators, expr])) 

p (", exprg, seq ([str, +(expr)])) 


{(Literal, 1)} 
{(mt,l» 
{(str,l)} 
{(expr! , 1)} 
{(exprg, 1)} 
{{expr,.;, 1>} 
{(str, (expr, 1)} 
{(function, +}, (StringEnd, 1}} 
{(_IF, 1), (.THEN, I), (expr, 111), (.ELSE, 1)} 
{(expr, 11), (operators , 1)} 
{(str, 1), (expr, +)} 



6.5 Nominal resolution 

Production rules are matched as follows (ANF on the left, master grammar on the right): 



p (", .Literal, Literal) 









p (", expr, int) 




p(' 


', expression, int) 


p (", expr, str) 




p(' 


', expression, str) 


p (", expr, expr; ) 




p(' 


', expression, conditional) 


p (", expr, exprg) 




p(' 


', expression, binary) 


p (", expr, exprg) 




p(' 


', expression, apply) 


p (", function, seq ([sir, +(str) , expr])) 




p(' 


', function, seq ([str, +(str) , expression])) 


p (", program, seq ([+(function) , StringEnd])) 




p(' 


', program, +(function)) 


p (", expr; , seq ([-IF, expr, .THEN, expr, .ELSE, expr])) 




p(' 


', conditional, seq ([expression, expression, expression])) 


p (", exprg, seq ([expr, operators, expr])) 




p(' 


', femarj/, seq ([expression, operator, expression])) 


p (", exprg, seq ([str, +(expr)])) 




p(' 


', apply, seq ([str, +( expression)])) 



This yields the following nominal mapping: 

python o master = {(expr -g, binary), 

(program, program) , 

(function, function) , 

(expri , conditional) , 

(expr, expression) , 

(str, str) , 

(int, int), 

(StringEnd, uj), 

(.ELSE,w), 

(-IF,oj), 

(exprg , apply) , 

(_THEN,u), 

( operators , operator) } 

Which is exercised with these grammar transformation steps: 

• renameN-renameN exprg to binary 

• renameN-renameN expr; to conditional 

• renameN-renameN expr to expression 

• renameN-renameN exprg to apply 

• renameN-renameN operators to operator 
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Structural resolution 



project-inject 

p (", program, seq ( [+(function) , StringEnd | ] ) ) 
project-inject 

p (", conditional, seq ([-IF, expression, _THEN, expression, \_ELSE\ , expression} ) ) 
project-inject 

p (", conditional, seq ( [ | _JF L expression, -THEN, expression, expression] ) ) 
project-inject 

p (", conditional, seq ( [ expression, | _ THEN \ , expression, expression] ) ) 

eliminate-introduce 

p (", -Literal, Literal) 
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Grammar 7 

Rascal Algebraic Data Type 



Source name: rascal-a 



7.1 Source grammar 



Source artifact: topics/fl/rascal/Abstract.rsc 

Grammar extractor: sharcd/rascal/src/extract/RascalADT2BGF.rsc 



Production rules 

p('prg', FLPrg, sel ('fs', *(FLFun))) 

p('fun', FLFun, seq ([sel ('f, str) , sel ('args', *(str)) , sel ('body', FLExpr)])) 

p(", FLExpr, choice([sel ('binary', seq ([sel ('el', FLExpr) , sel ('op', FLOp) , sel ('e2', FLExpr)])) , 
sel ('apply', seq ([sel ('f ', str) , sel ('vargs', *(FLExpr))])) , 

sel ('ifThenElse', seq ([sel ('c', FLExpr) , sel ('t', FLExpr) , sel ('e', FLExpr)])) , 
sel ('argument', sel ('a', str)) , 
sel ('literal', sel ('i', int))])) 
p(", FLOp, choice([sel ('minus', e) , 
sel ('plus', e) , 
sel ('equal', e)])) 



7.2 Normalizations 

• reroot-reroot [] to [FLPrg] 

• unlabel-designate 

P (Tpr?] . FLPrg, sel ('fs', *(FLFun))) 

• unlabel-designate 

p ( I 'fun' | , FLFun, seq ([sel ('f ', str) , sel ('args', *(str)) , sel ('body', FLExpr)])) 

• anonymize-deanonymize 



p ( ", FLOp, choice 
• anonymize-deanonymize 

, FLExpr, choice 



scl ('minus', e)| , [scl ('plus', e)| , [sel ('equal', e)| 



sel ^'binary', seq ( 


sel ('el', FLExpr)\, sel ('op', FLOp) \, sel ('e2', FLExpr)\ 


)) 


sel ^'apply', seq ( 



• anonymize-deanonymize 



, FLFun , seq 

• vertical-horizontal in FLExpr 

• undeflne-deflne 

p(",FLOp,e) 

• unlabel-designate 

p ( [W1, FLPrg, »(FLFun)) 



el ('f, gtrj| , [sej ('args', *(sfr))] , |sel ('body', FLExpr)\ yj 
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• extract-inline in FLExpr 

p (", FLExpri , seq([FLExpr, FLOp, FLExpr])) 

• extract-inline in FLExpr 

p (", FLExprg, seq ([str, *(FLExpr)])) 

• extract-inline in FLExpr 

p (", FLExprs , seq ([FLExpr, FLExpr, FLExpr])) 

7.3 Grammar in ANF 



Production rule 


Production signature 


p(", FLPrg, "(FLFun)) 

p (", FLFun, seq ([sir, *(str) , FLExpr])) 

p (", FLExpr, FLExpri ) 

p (", FLExpr, FLExprg ) 

p (", FLExpr, FLExprs) 

p (", FLExpr, str) 

p (", FLExpr, int) 

p (", FLExpn , seq ([FLExpr, FLOp, FLExpr])) 

p (", FLExprg, seq ([str, *(FLExpr)])) 

p (", FLExprs , seq ([FLExpr, FLExpr, FLExpr])) 


{(FLFun,*)} 
{(str, 1*), (FLExpr, 1)} 
{(FLExpr i,l)} 
{(FLExprg, 1)} 
{(FLExprg,!)} 
{(str,l)} 
{(int, I)} 
{(FLOp, 1) , (FLExpr, 11)} 
{(str, I), (FLExpr,*)} 
{(FLExpr, 111}} 



7.4 Nominal resolution 

Production rules arc matched as follows (ANF on the left, master grammar on the right): 

p (" , FLPrg, "(FLFun)) o p (", program, +(j unction)) 

p (", FLFun, seq ([str, *(str) , FLExpr])) o p (", function, seq ([str, +(str) , expression])) 

p(", FLExpr, FLExpri) — P (" , expression, binary) 

p(", FLExpr, FLExprg) — p (" , expression, apply) 

p(", FLExpr, FLExprg) — p (" , expression, conditional) 

p (" , FLExpr , str) — p (" , expression, str) 

p (" , FLExpr, int) — p (" , expression, int) 

p (", FLExpri , seq([FLExpr, FLOp, FLExpr])) — p (", binary, seq ([expression, operator, expression])) 

p (", FLExprg , seq ([str, *(FLExpr)])) o p (", apply, seq ([str, +( expression)])) 

p (", FLExprs, seq([FLExpr, FLExpr, FLExpr])) — p (", conditional, seq ([expression, expression, expression])) 

This yields the following nominal mapping: 

rascal — a o master = {(FLFun, function) , 
(FLExprg, apply), 
(FLPrg, program), 
(FLExpr, expression) , 
(int, int), 
(str, str), 

(FLExprs , conditional), 
(FLOp, operator), 
(FLExpri , binary)} 
Which is exercised with these grammar transformation steps: 

• renameN-renameN FLFun to function 

• renameN-renameN FLExprg to apply 

• renameN-renameN FLPrg to program 

• renameN-renameN FLExpr to expression 

• renameN-renameN FLExprs to conditional 
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renameN-renameN FLOp to operator 
renameN-renameN FLExprj to binary 



Structural resolution 

narrow-widen in program 

* (function) 

^(function) 

narrow-widen in function 

*(str) 

+(str) 

narrow-widen in apply 

*(expression) 

^{expression) 
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Grammar 8 

Rascal Concrete Syntax 
Definition 

Source name: rascal-c 

8.1 Source grammar 

• Source artifact: topics/fl/rascal/Concrete.rsc 

• Grammar extractor: sharcd/rascal/src/extract/RascalSyntax2BGF.rsc 

Production rules 

p('prg', Program, sel ('functions', s+ (Function, >/))) 

p('ifThenElse', Expr, seq (['if, sel ('cond', Expr) , 'then', sel ('thenbranch', Expr) , 'else', sel ('elsebranch', Expr)])) 
p(", Expr, seq (['(', sel ('e', Expr) , ')'])) 
p('literaF, Expr, sel ('i', Int)) 
p('argument', Expr, sel ('a', Name)) 

p('binary', Expr, seq ([sel ('lexpr', Expr) , sel ('op', Ops) , sel ('rexpr', Expr)])) 
p('apply', Expr, seq ([sel ('f, Name) , sel ('vargs', +(Expr))])) 
p('plus', Ops, '+') 
p('equal', Ops, '==') 
p('minus', Ops, '-') 

p('fun', Function, seq ([sel ('f ', Name) , sel ('args', +(Name)) , '=', sel ('body', Expr)])) 

8.2 Normalizations 

• reroot-reroot [] to [Program] 

• unlabel-designate 

p ( |'prg'| , Program, sel ('functions', s+ (Function, i/))) 

• unlabel-designate 

p (I'ifThenElse 7 !, Expr, seq (['if ', sel ('cond', Expr) , 'then', sel ('thenbranch', Expr) , 'else', sel ('elsebranch', Expr)])) 

• unlabel-designate 

p ( | 'literal'! , Expr, sel ('i', Int)) 

• unlabel-designate 

p ( | 'argument' | , Expr, sel ('a', Name)) 

• unlabel-designate 

p ( | 'binary 7 ] , Expr, seq ([sel ('lexpr', Expr) , sel ('op', Ops) , sel ('rexpr', Expr)])) 

• unlabel-designate 

p ( | 'apply'] , Expr, seq ([sel ('f ', Name) , sel ('vargs', +(Expr))])) 

• unlabel-designate 

p ( | 'plus' | , Ops, '+') 
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unlabel-designate 

p (| 'equal' |, Ops, '==') 

unlabel-designate 

p ( I'minus'l , Ops, '-') 

unlabel-designate 

p ( I 'fun' I , Function, seq ([sel ('f, Name) , sel ('args', +(Name)) , '=', sel ('body', Expr)})) 
anonymize-deanonymize 

p Expr, scq ^ j jscl ('f, Name)\ , |scl ('vargs', +(Erpr))| ^ 
anonymize-deanonymize 

p Function, scq ^ j jscl ('f, jVame) | , [scl ('args', +(Name))\ , '=', |sel ('body', Erpr)] j ^ 
anonymize-deanonymize 

p Expr, seq ^ pif ', |sel ('cond', Exprjj , 'thcn', |scl ('thenbranch', Expr)\ , 'else', sel ('elsebranch', Expr)\ ^ 
anonymize-deanonymize 

p Expr, scq ^ j jscl ('lcxpr', Erpr)| , scl ('op', Ops)\ , |scl ('rcxpr', Brprjj j ']'] 

anonymize-deanonymize 

p Expr, seq ^ scl ('c', Exprj\ , ')'])) 

abstractize-concretize 

p (", Expr, seq ([g], Bxpr,^])) 

abstractize-concretize 

p (", Function, seq ( [iVarac, +(Name) , '='| , Expr] )) 
abstractize-concretize 

p(",o P s,E3) 

abstractize-concretize 

p(",0ps,0 

abstractize-concretize 

P (",o ps ,S) 

abstractize-concretize 

p ('functions', Program, s+ (Function, \^/\) ) 

abstractize-concretize 

p (", Expr, seq ( [ I'if'l , Expr, I'thcn'l , Expr, 'else'L -Expr])) 

undeflne-define 

p (", Ops, s) 

abridge-detour 

p (", Expr, Expr) 

unlabel-designate 

p ( I 'functions' I , Program, +(Function)) 

unlabel-designate 

p ( PFI , Expr, Int) 

unlabel-designate 

P ( I 'a' I , Expr, Name) 

extract-inline in Erpr 

p (", Expri , seq ([Expr, Expr, Expr])) 

extract-inline in Erpr 

p (", Expr2, seq ([Erpr, Ops, Erpr])) 

extract-inline in Expr 

p (", Exprg, seq ([fcme, +(Erpr)])) 
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8.3 



Grammar in ANF 



Production rule 


Production signature 


p (", Program, ^(Function)) 

p (", Expr, Expr i ) 

p (", Expr, Int) 

p (", Expr, Name) 

p (", Expr, Exprg) 

p (", Expr, Expr 3) 

p (", Function, seq ([Name, +(Name) , Expr])) 
p (", Expri , seq ([.Expr, Expr, Expr])) 
p (", Expr2, seq ([Expr, Ops, Expr])) 
p (", Exprs, seq ([ATome, +(Expr)])) 


{(Function, +)} 
{(Expn,l)} 

{(Art, 1» 

{(Afame, 1)} 
{(Expr 2 ,l)} 
{(Exprs, 1» 

{(Expr, 1), (Afame, 1+)} 
{(Expr, 111)} 
{(Ops, 1), (Expr, 11)} 

{(Expr, +), (Name, 1)} 



8.4 Nominal resolution 



Production rules are matched as follows (ANF on the left, master grammar on the right): 



p (", Program, +(Function)) 




P( 


", program, +(function)) 


p (", Expr, Expri ) 




P( 


", expression, conditional) 


p (", Expr, Int) 




P( 


", expression , int) 


p (", Expr, Name) 




P( 


", expression, str) 


p (", Expr, Expr%) 




P( 


", expression, binary) 


p (", Expr, Exprs) 




P( 


", expression, apply) 


p (", Function, seq ([Afame, +(Name) , Expr])) 




P( 


", function, seq ([sir, +(str) , expression])) 


p (", Expri , seq ([Expr, Expr, Expr])) 




P( 


", conditional, seq ([expression, expression, expression])) 


p(", Expr2 , seq ([Expr, Ops, Expr])) 




P( 


', binary, seq ([expression, operator, expression])) 


p (", Exprs, seq ([Afame, +(Expr)])) 




P( 


', apply, seq ([sir, +( expression)])) 



This yields the following nominal mapping: 

rascal -co master = {{Expr2, binary), 
(Int, int), 

(Expri , conditional) , 
(Function, function) , 
(Program, program), 
(Name, str), 
(Exprs , apply) , 
(Expr, expression) , 
{ Ops , operator) } 

Which is exercised with these grammar transformation steps: 

• renameN-renameN Exprg to binary 

• renameN-renameN Int to int 

• renameN-renameN Expri to conditional 

• renameN-renameN Function to function 

• renameN-renameN Program to program 

• renameN-renameN Name to str 

• renameN-renameN Exprs to app/y 

• renameN-renameN Expr to expression 

• renameN-renameN Ops to operator 
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Grammar 9 



Syntax Definition 
Formalism 

Source name: sdf 

9.1 Source grammar 

• Source artifact: topics/fi/asfsdf/Syntax.sdf 

• Grammar extractor: topics/extraction/sdf/Main.sdf 

• Grammar extractor: topics/extraction/sdf/Main.asf 

• Grammar extractor: topics/extraction/sdf/Tokens.sdf 

• Grammar extractor: topics/extraction/sdf/Tokens.asf 

Production rules 

p(", Program, +(Function)) 

p(", Function, seq ([Name, +(Name) , '=', Expr, +(Newline)])) 
p('binary', Expr, seq ([Expr, Ops, Expr])) 
p('apply', Expr, seq ([Name, +(Expr)])) 

p('ifThenElse', Expr, seq (['if, Expr, 'then', Expr, 'else', Expr])) 

p(", Expr, seq (['(', Expr, ')'])) 

p('argument', Expr, Name) 

p('literaF, Expr, Int) 

p('minus', Ops, '-') 

p('plus', Ops, '+') 

p('equal', Ops, '==') 

9.2 Normalizations 

• reroot-reroot [] to [Program] 

• unlabel-designate 

p ( I'binary 7 ] , Expr, seq ([Expr, Ops, Expr])) 

• unlabel-designate 

p ( | 'apply'] , Expr, seq([Name, +(Expr)])) 

• unlabel-designate 

p ( I'ifThciiElsc'l . Expr, seq (['if, Expr, 'then', Expr, 'else', Expr])) 

• unlabel-designate 

p ( | 'argument' | , Expr, Name) 

• unlabel-designate 

p ( I 'literal Expr, Int) 
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• unlabel-designate 

p ( I 'minus'] , Ops, '-') 

• unlabel-designate 

p ( | 'plus' | , Ops, '+') 

• unlabel-designate 

p ( p^Pl , Ops, '==') 

• abstractize-concretize 

p (", Expr, seq ([[(], Expr, [T]])) 

• abstractize-concretize 

p(",0ps,0 

• abstractize-concretize 

p(",o P s,[3) 

• abstractize-concretize 

p(",Ppa,Eii!]) 

• abstractize-concretize 

p (", Expr, seq ( [ I 'if' I , Expr, I'then'l , Expr, 'else'L -Expr])) 

• abstractize-concretize 

p (", Function, seq {[Name, +(Name) , '='1 , Expr, +{Newline)])) 

• undeflne-define 

p(", Ops,e) 

• abridge-detour 

p (", Expr, Expr) 

• extract-inline in Expr 

p (", Expri , seq {[Expr, Ops, Expr})) 

• extract-inline in Expr 

p (", Expr2, seq ([fcme, +(Expr)])) 

• extract-inline in Expr 

p (", Expr^, seq ([Expr, Expr, Expr])) 

9.3 Grammar in ANF 



Production rule 


Production signature 


p (", Program, +{Function)) 

p (", Function, seq ([Name, +{Name) , Expr, +{Newline)])) 

p (", Expr, Expri ) 

p (", Expr, Expr^) 

p (", Expr, Exprg) 

p (", Expr, Name) 

p (", Expr, Int) 

p (", Expri , seq ([Expr, Ops, Expr])) 
p (", Exprg , seq ([Name, +(Expr)])) 
p (", Exprs , seq ([Expr, Expr, Expr])) 


{{Function, +)} 
{(Expr, 1), {Newline, +}, {Name, 1+)} 
{(Expn,l)} 
{(Exprs;, 1)} 
{(Exprs, 1» 
{(Name, 1)} 
{(/nt,l» 
{(Ops, 1), (Expr, 11)} 
{{Expr, +}, {Name, 1)} 
{(Expr, 111}} 
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9.4 Nominal resolution 

Production rules are matched as follows (ANF on the left, master grammar on the right): 



p (", Program, +(Function)) 




P( 


", program, ^(function)) 


p (", Function, seq ([Name, +(Name) , Expr, +(Newline)])) 




P( 


function, seq ([str, +(str) , expression])) 


p (", Expr, Expri ) 




P( 


", expression, binary) 


p (", Expr, Exprg) 




P( 


", expression, apply) 


p (", Expr, Exprs) 




P( 


", expression, conditional) 


p (", Expr, Name) 




P( 


", expression, str) 


p (", Expr, Int) 




P( 


", expression, int) 


p (", Expri i seq ([Expr, Ops, Expr])) 




P( 


", binary, seq ([expression, operator, expression])) 


p (", Expr2, seq ([Name, +(Expr)])) 




P( 


", apply, seq ([str, +( expression)])) 


p (", Exprs , seq ([.Expr, Expr, Expr])) 




P( 


", conditional, seq ([expression, expression, expression])) 



This yields the following nominal mapping: 

sd/ o master = {(Expr$, conditional), 
(Int, int), 
(Expri i binary), 
(Newline,u>), 
( Function , function) , 
(Program, program), 
(Name, str), 
(Expr, expression) , 
(Ops, operator), 
(Expr 2 , apply)} 

Which is exercised with these grammar transformation steps: 

• renameN-renameN Expr;; to conditional 

• renameN-renameN Int to int 

• renameN-renameN Expri to binary 

• renameN-renameN Function to function 

• renameN-renameN Program to program 

• renameN-renameN Name to str 

• renameN-renameN Expr to expression 

• renameN-renameN Ops to operator 

• renameN-renameN Expr<> to apply 

9.5 Structural resolution 

• project-inject 

p ( " , function , seq ( [str, +(str ) , expression , +( \Newline] ) ] ) ) 
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Grammar 10 



TXL 



Source name: txl 

10.1 Source grammar 

• Source artifact: topics/fi/txl/FL.Txl 

• Grammar extractor: topics/cxtraction/txl/txl2bgf.xslt 

Production rules 

p(", program, +(fun)) 

p(",/«n, seq ([id, +(id) , '=', expression, newline])) 
p(", expression, choice([seq ([expression, op, expression]) , 
seq ([id, +( expression)]) , 

seq (['if, expression, 'then', expression, 'else', expression]) , 

seq (['(', expression, ')']), 

id, 

number])) 
p(", op, choice(['+', 

'='='])) 



10.2 Normalizations 

• abstractize-concretize 

p (", /«n, seq ( [id, +(id) , |'='| , expression, newline])) 

• abstractize-concretize 

p (", op, choice ( [03, E], [W] )) 

• abstractize-concretize 

p ( ", expression, choice ( seq ([expression, op, expression]) , seq ([id, +( expression)]) , seq ( [ I'if'l , expression, 'then'l , expressi 

• vertical-horizontal in expression 

• undeflne-define 

P (", op,e) 

• abridge-detour 

p (", expression, expression) 

• extract-inline in expression 

p (", expression! , seq ([expression, op, expression])) 

• extract-inline in expression 

p (", expression^ , seq ([id, +( expression)])) 

• extract-inline in expression 

p (", expression^ i sec l ([expression, expression, expression])) 
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10.3 Grammar in ANF 



Production rule 


Production signature 


p (", program, +(fun)) 

p (",/wi, seq ([id, +(id) , expression, newline])) 

p (", expression, expression! ) 

p (", expression, expressions) 

p (", expression, expressions) 

p (", expression, id) 

p (", expression, number) 

p (", expression^ , seq ([expression, op, expression])) 

p (", express ions, seq ([id, +(expression)])) 

p (", expression^ , seq ([expression, expression, expression])) 


{</«",+>} 
{{newline, 1), {id, {expression, 1)} 
{(expression i , 1)} 
{( express ions , 1)} 
{(expressions , 1)} 

{<«.!>} 
{(mimfier, 1)} 
{(op, 1), (expression, 11)} 
{(expression, +), (id, 1}} 
{(expression, 111)} 



10.4 Nominal resolution 

Production rules arc matched as follows (ANF on the left, master grammar on the right): 



p (", program, +(fun)) 




P ( 


", program, ^(function)) 


p (" ,fun, seq ([id, +(id) , expression, newline])) 




P( 


", Junction, seq ([sir, +(str) , expression])) 


p (", expression, expression! ) 




P( 


", expression, binary) 


p (", expression, expressions) 




P( 


", expression, apply) 


p (", expression, expressions) 




P( 


", expression, conditional) 


p (", expression, id) 




P( 


", expression, str) 


p (", expression, number) 




P( 


", expression, int) 


p (", expression^ , seq ([expression, op, expression])) 




P( 


", binary, seq ([expression, operator, expression])) 


p (", expressions > se q ([»<i, +(ezpress«on)])) 




P( 


", apply, seq ([str, +( expression)])) 


p (", expressions , seq ([expression, expression, expression])) 




P( 


", conditional, seq ([expression, expression, expression])) 



This yields the following nominal mapping: 

fxi o master = {{program, program), 
(expressions, a Pply)> 
(fun, function) , 
(expression, expression) , 
(id, str), 

(expression] , binary), 
(op, operator), 
(number, int), 
(newline, ui), 

(expressions , conditional)} 

Which is exercised with these grammar transformation steps: 

• renameN-renameN expressions to apply 

• renameN-renameN fun to function 

• renameN-renameN ia! to str 

• renameN-renameN expression] to binary 

• renameN-renameN op to operator 

• renameN-renameN number to int 

• renameN-renameN expressions to conditional 
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5 Structural resolution 

project-inject 

p (", function, seq ( [str, +(str) , expression, \newline]\ ) ) 
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Grammar 11 

XML Schema 



Source name: xsd 



11.1 Source grammar 

• Source artifact: topics/fl/xsd/fl.xsd 

• Grammar extractor: sharcd/prolog/xsd2bgf.pro 



Production rules 



p(", Program, +(sel ('function', Function))) 
p(", Fragment, Expr) 

p(", Function, seq ([sel ('name', str) , +(sel ('arg', str)) , sel ('rhs', Expr)])) 
p(", Expr, choice([Literal , 

Argument, 

Binary , 

IfThenElse, 

Apply])) 
p(", Literal, sel ('info', int)) 
p(", Argument, sel ('name', str)) 

p(", Binary, seq ([sel ('ops', Ops) , sel ('left', Expr) , sel ('right', Expr)])) 
p(", Ops, choice([sel ('Equal', e) , 

sel ('Plus', e) , 

sel ('Minus', e)])) 

p(", IfThenElse, seq ([sel ('ifExpr', Expr) , sel ('thenExpr', Expr) , sel ('elseExpr', Expr)])) 
p(", Apply, seq ([sel ('name', str) , +(sel ('arg', Expr))])) 



11.2 Normalizations 

• unlabel-designate 

p ( | 'info' | , Literal, int') 

• unlabel-designate 

p ( I'namc'l , Argument, str) 

• anonymize-deanonymize 

p f", Apply, seq ^ |sel ('name', sfr)] , +( jscl ('arg', Expr) | j j J J 

• anonymize-deanonymize 

p f", Function, seq f |sel ('name', str)] , +^ |sel ('arg', str)j ) , |sel ('rhs', Brpr)] J J 

• anonymize-deanonymize 



p ( ", IfThenElse, seq ( 



sel ('ifExpr', Expr) | , |sel ('thenExpr', Expr) | , |sel ('elseExpr', Er,pr)| J J 



• anonymize-deanonymize 

p Program, +^ |sel ('function', Function)^ }'} 
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• anonymize-deanonymize 

p Ops, choice ^ y scl ('Equal', g)| , |scl ('Plus', e)| , |sel ('Minus', e) ^ 

• anonymize-deanonymize 

p Binary, seq ^ j jscl ('ops', Ops)\ , |scl ('left', Expr)\ , scl ('right', Expr) 

• vertical-horizontal in Expr 

• undeflne-define 

p(", OpS,s) 

• unchain-chain 

p (", Expr, Literal) 

• unchain-chain 

p (", Expr, Argument) 

• unchain-chain 

p (", Expr, Binary) 

• unchain-chain 

p (", Expr, IJThenElse) 

• unchain-chain 

pC'.Expr.ylppfy) 

• unlabel-designate 

p ( I'LiteraPI , Expr, int) 

• unlabel-designate 

p ( | 'Argument' | . Expr, str) 

• unlabel-designate 

p ( | 'Binary 7 ] , Expr, seq {[Ops, Expr, Expr])) 

• unlabel-designate 

p ( I'IfThenElse'L Expr, seq([Expr, Expr, Expr])) 

• unlabel-designate 

P ( | 'Apply' | , Expr, seq {[str, +{Expr)])) 

• extract-inline in Expr 

p (", Expr^ , seq ([Ops, Expr, Expr])) 

• extract-inline in Erpr 

p (", Exprs, seq ([Expr, Expr, Expr])) 

• extract-inline in Erpr 

p (", Exprg, seq ([str, +(Erpr)])) 



11.3 Grammar in ANF 



Production rule 


Production signature 


p (", Program, +{Function)) 

p (", Fragment, Expr) 

p (", Function, seq {[str, +{str) , Expr])) 

p (", Expr, int) 

p (", Expr, str) 

p (", Expr, Expri ) 

p (", Expr, Exprs) 

p (", Expr, Exprg) 

p (", Expri , seq ([Ops, Expr, Expr])) 

p (", Exprs i seq ([Erpr, Expr, Expr])) 

p (", Exprg, seq ([str, +(Erpr)])) 


{{Function, +)} 
{(Erpr, 1)} 
{{str, l+>, (Erpr, 1)} 
{{int, 1)} 
{{str, 1)} 
{{Expn,l)} 
{{Expr 2 , 1)} 
{{Exprg, 1)} 
{{Ops, 1), {Expr, 11)} 

{{Expr, 111}} 
{(str, l),<£tepr,+)} 
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11.4 Nominal resolution 

Production rules are matched as follows (ANF on the left, master grammar on the right): 



p (", Program, +(Function)) 




p (", program, +(function)) 


p (", Fragment, Expr) 







p (", Function, seq ([sir, +(str) , Expr])) 




p (", function, seq ([sir, +(str) , expression])) 


p (", Expr, int) 




p (", expression, int) 


p (", Expr, str) 




p (", expression, str) 


p (", Expr, Expr! ) 




p (", expression, binary) 


p (", Expr, Exprg) 




p (", expression, conditional) 


p (", Expr, Exprg) 




p (", expression, apply) 


p (", Expri , seq ([Ops, Expr, Expr])) 




p (", binary, seq ([expression, operator, expression])) 


p (", Expr a , seq ([Expr, Expr, Expr])) 




p (", conditional, seq ([expression, expression, expression])) 


p (", Exprs, seq ([str, +(Expr)])) 




p (", apply, seq ([sir, +( expression)])) 



This yields the following nominal mapping: 

xsd o master = {(Expri , binary), 
(str, str) , 
(int, int), 

(Expr '2, conditional), 
(Function, function) , 
(Program, program), 
(Exprs, apply), 
(Expr, expression) , 
( Ops , operator) } 

Which is exercised with these grammar transformation steps: 

• renameN-renameN Expri to binary 

• renameN-renameN Exprg to conditional 

• renameN-renameN Function to function 

• renameN-renameN Program to program 

• renameN-renameN Exprs to app/y 

• renameN-renameN Erpr to expression 

• renameN-renameN Ops to operator 

11.5 Structural resolution 

• reroot-reroot [program, Fragment] to [program] 

• eliminate-introduce 

p (", Fragment, expression) 

• permute-permute 

p (", binary, seq ([operator, expression, expression])) 
p (", binary, seq ([expression, operator, expression])) 
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